home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed24.d64 / module 5 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  18KB  |  564 lines
  1. 10 REM VOCABULARY EXERCISE DESIGNED BY         BILL CUMBERLAND FEB 1989
  2. 15 POKE53280,0:POKE53281,0:POKE646,7:POKE53272,23
  3. 20 V$="5":REM MODULE IDENTIFICATION CODE
  4. 25 REM THIS MODULE WAS PREPARED BY ....
  5. 30 REM BILL CUMBERLAND - 1991:10:27
  6. 100 PRINT"[147]                                        [146]";
  7. 101 PRINT"                                        [146]";
  8. 102 PRINT"                [214][207][195][193][194] "V$"              [146]";
  9. 104 PRINT"                                           [146]";
  10. 105 PRINT"                                        [146]";
  11. 106 PRINT"                                        [146]";
  12. 107 PRINT"                                        [146]"
  13. 108 GOSUB9051:GOSUB9300:GOSUB660
  14. 110 PRINT"[147]                                        [146]";
  15. 111 PRINT"    [212]HIS MODULE WAS PREPARED BY....     [146]";
  16. 112 PRINT"            [194]ILL [195]UMBERLAND             [146]";
  17. 113 PRINT"               91:10:27                 [146]";
  18. 114 PRINT"                                        [146]":GOSUB9052
  19. 115 PRINT"[147]   [212]HE FOLLOWING WORDS ARE EXAMINED:"
  20. 120 PRINT"HERBACEOUS,SUCCULENTS,HOPPER,DORMANT"
  21. 125 PRINT" HYBRIDS,TOPIARY,ESPALIERING,TENDRILS"
  22. 130 PRINT" AROMATIC,DIBBLE,LOAM,SPORES"
  23. 135 PRINT"TILTH,SCION,PERGOLA,HONED"
  24. 140 PRINT"FRIABLE,POROSITY,OVATE,ARBORETUM"
  25. 145 PRINT"          [201]NSTRUCTIONS?  Y/N":GOSUB9051:GOSUB9300
  26. 150 GETR$:IFR$<>"Y"ANDR$<>"N"THEN150
  27. 155 IFR$="N"THEN2000
  28. 200 PRINT"[147]             [201]NSTRUCTIONS
  29. 210 [153]"  (null)HIS IS ONE OF A SERIES OF MODULES      DESIGNED TO HELP YOU ";
  30. 220 [153]"BUILD A GOOD       WORKING VOCABULARY.
  31. 230 GOSUB9054
  32. 240 PRINT"[147]  [210]EAD THE UNDERLINED WORD AND CHOOSE     ONE OF THE FIVE WORDS ";
  33. 250 PRINT"WHICH HAS A       MEANING SIMILAR TO THE UNDERLINED       WORD.
  34. 260 [153]"  VALXAMPLE:    MIDDLE
  35. 270 PRINT"              [183][183][183][183][183][183]
  36. 280 [153]"           1. WARFARE
  37. 290 PRINT"           2. MARCHED
  38. 300 [153]"           3. LAWFUL
  39. 310 PRINT"           4. CENTRE
  40. 320 [153]"           5. RANCH
  41. 330 PRINT"  [211]INCE 'CENTRE' IS THE CORRECT CHOICE,   YOU WOULD ENTER '4'";
  42. 340 PRINT" AS YOUR RESPONSE    AND THEN PRESS [210][197][212][213][210][206][146]
  43. 350 [141]50
  44. 370 [153]"LOAD  (null)RESS 1 TO REVIEW INSTRUCTIONS.
  45. 380 PRINT"  [208]RESS 2 TO START THE EXERCISE.
  46. 390 [161]R$:[139]R$[179][177]"1"[175]R$[179][177]"2"[167]390
  47. 400 [139]R$[178]"1"[167]200
  48. 410 [153]"LOAD  LEFT$ERE ARE TWENTY QUESTIONS FOR YOU.
  49. 420 GOSUB9052:PRINT"[147]"
  50. 430 W=1
  51. 440 GOTO2000
  52. 499 :
  53. 500 REM TERMINATION OF MODULE
  54. 505 IF C>18 THEN 535
  55. 510 IF C>16 THEN 570
  56. 515 IF C>14 THEN 595
  57. 520 PRINT"[147]  [217]OU SEEM TO HAVE PROBLEMS!
  58. 525 [153]"  (null)EE YOUR TEACHER!"
  59. 530 [141]9059:[137]540
  60. 535 [153]"LOAD   VALXCELLENT WORK!":[141]9052
  61. 540 [153]"   STR$O YOU WISH TO REVIEW THE DEFINITIONS   OF THESE WORDS?  Y/N
  62. 545 GETR$:IFR$<>"Y"ANDR$<>"N"THEN545
  63. 550 IFR$="Y"THEN5000
  64. 555 IFR$="N"THENPRINT"[147]  [212]RY MODULE [214][207][195][193][194] 3 WHEN YOU HAVE        THE TIME.
  65. 560 [141]9052:[137]9500
  66. 570 [153]"LOAD   CHR$OOD WORK!":[141]9052:[153]"   (null)OU MISSED"[197](W$)"WORDS"
  67. 575 [141]9055
  68. 580 [153]"   (null)ET'S REVIEW THE DEFINITIONS OF         THESE WORDS?
  69. 585 GOSUB9053:GOTO5000
  70. 590 GOSUB9055
  71. 595 PRINT"[147]  [217]OU ARE NOT DOING VERY WELL!":GOSUB9054
  72. 600 PRINT"  [201] WANT YOU TO REVIEW THE MEANING OF     THESE WORDS NOW."
  73. 605 GOSUB9053:PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
  74. 610 [161]R$:[139]R$[179][177][199](32)[167]610
  75. 615 [137]5000
  76. 654 :
  77. 655 [141]9054
  78. 660 [153]"      (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
  79. 665 GETR$:IFR$<>CHR$(32)THEN665
  80. 670 RETURN
  81. 1999 :
  82. 2000 PRINT"[147]":POKE53280,9:POKE53281,15:POKE646,0
  83. 2010 PRINT" 1       HERBACEOUS
  84. 2015 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  85. 2020 PRINT"      1. FATAL TO HERBS
  86. 2025 [153]"      2. RESEMBLING A PLANT LEAF
  87. 2030 PRINT"      3. POLLINATED
  88. 2035 [153]"      4. ABUNDANT
  89. 2040 PRINT"      5. DRAINAGE
  90. 2045 [141]9000
  91. 2050 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2100
  92. 2060 [141]9200
  93. 2065 [153]"  (null)O, THE CORRECT CHOICE IS...
  94. 2070 PRINT"         RESEMBLING A PLANT LEAF [146].":W=W+1
  95. 2075 GOSUB9052
  96. 2080 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  97. 2099 :
  98. 2100 PRINT"[147]":POKE53280,8:POKE53281,15:POKE646,0
  99. 2110 PRINT" 2       SUCCULENTS
  100. 2115 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  101. 2120 PRINT"      1. SHOWY BLOOMS
  102. 2125 [153]"      2. IRRIGATED FIELDS
  103. 2130 PRINT"      3. PLANTS HAVING JUICY TISSUES
  104. 2135 [153]"      4. OVERDEVELOPED ROOTS
  105. 2140 PRINT"      5. SWEET
  106. 2145 [141]9000
  107. 2150 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2200
  108. 2155 [141]9200
  109. 2160 [153]"  (null)O, THE CORRECT CHOICE IS ...
  110. 2165 PRINT"   PLANTS HAVING FLESHY JUICY TISSUE ":W=W+1
  111. 2170 GOSUB9052
  112. 2175 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  113. 2199 :
  114. 2200 PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,0
  115. 2210 PRINT" 3       HOPPER
  116. 2215 [153]"         USRUSRUSRUSRUSRUSR
  117. 2220 PRINT"      1. HOME-BREWED BEER
  118. 2225 [153]"      2. UNWANTED VINE
  119. 2230 PRINT"      3. HOE
  120. 2235 [153]"      4. RABBIT-LIKE
  121. 2240 PRINT"      5. RECEPTIVAL FOR DISPENSING               CONTENTS EVENLY
  122. 2245 [141]9000
  123. 2250 [139]R$[178]"5"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2300
  124. 2255 [141]9200
  125. 2260 [153]"  (null)O, THE CORRECT CHOICE IS ...
  126. 2265 PRINT"   RECEPTICAL FOR DISPENSING [146]":W=W+1
  127. 2270 GOSUB9052
  128. 2275 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  129. 2299 :
  130. 2300 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
  131. 2310 PRINT" 4       DORMANT
  132. 2315 [153]"         USRUSRUSRUSRUSRUSRUSR
  133. 2320 PRINT"      1. INACTIVE
  134. 2325 [153]"      2. FLOURISHING
  135. 2330 PRINT"      3. FESTOONING A DOORWAY
  136. 2335 [153]"      4. INFESTED
  137. 2340 PRINT"      5. SUMMERHOUSE ROOF
  138. 2345 [141]9000
  139. 2350 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2400
  140. 2355 [141]9200
  141. 2360 [153]"  (null)O, THE CORRECT CHOICE IS ...
  142. 2365 PRINT"         INACTIVE [146]":W=W+1
  143. 2370 GOSUB9052
  144. 2375 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  145. 2399 :
  146. 2400 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
  147. 2410 PRINT" 5       HYBRIDS
  148. 2415 [153]"         USRUSRUSRUSRUSRUSRUSR
  149. 2420 PRINT"      1. PESTICIDES
  150. 2425 [153]"      2. ACIDIC SOIL
  151. 2430 PRINT"      3. GARDEN PATHS
  152. 2435 [153]"      4. TINY, HELPFUL INSECT
  153. 2440 PRINT"      5. PLANTS PRODUCED BY COMBINING            TWO SPECIES.
  154. 2445 [141]9000
  155. 2450 [139]R$[178]"5"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]2500
  156. 2455 [141]9200
  157. 2460 [153]"  (null)O, THE CORRECT CHOICE IS ...
  158. 2465 PRINT"PLANTS PRODUCED BY COMBINING TWO SPECIES[146]":W=W+1
  159. 2470 GOSUB9052
  160. 2475 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  161. 2499 :
  162. 2500 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
  163. 2510 PRINT" 6       TOPIARY
  164. 2515 [153]"         USRUSRUSRUSRUSRUSRUSR
  165. 2520 PRINT"      1. WEEDY GRASS
  166. 2525 [153]"      2. GIVING TREES OR SHRUBS                  ORNAMENTAL SHAPES
  167. 2530 PRINT"      3. ICE DEPOSITS
  168. 2535 [153]"      4. TOP-HEAVY SHRUBS
  169. 2540 PRINT"      5. MAP OF A FLOWER GARDEN
  170. 2545 [141]9000
  171. 2550 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2600
  172. 2555 [141]9200
  173. 2560 [153]"  (null)O, THE CORRECT CHOICE IS ...
  174. 2565 PRINT"GIVING TREES OR SHRUBS ORNAMENTAL SHAPES":W=W+1
  175. 2570 GOSUB9052
  176. 2575 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  177. 2599 :
  178. 2600 PRINT"[147]":POKE53280,2:POKE53281,15:POKE646,0
  179. 2610 PRINT" 7       TENDRILS
  180. 2615 [153]"         USRUSRUSRUSRUSRUSRUSRUSR
  181. 2620 PRINT"      1. SEGMENTS OF BANNA PEEL
  182. 2625 [153]"      2. PEBBLES
  183. 2630 PRINT"      3. DEWDROPS
  184. 2635 [153]"      4. THREADLIKE PART OF CLIMBING             PLANT
  185. 2640 PRINT"      5. FARM WAGON USED TO HAUL                 MANURE
  186. 2645 [141]9000
  187. 2650 [139]R$[178]"4"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]2700
  188. 2655 [141]9200
  189. 2660 [153]"  (null)O, THE CORRECT CHOICE IS ...
  190. 2665 PRINT" THREADLIKE PART OF A CLIBING PLANT ":W=W+1
  191. 2670 GOSUB9052
  192. 2675 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  193. 2699 :
  194. 2700 PRINT"[147]":POKE53280,11:POKE53281,15:POKE646,0
  195. 2710 PRINT" 8       ESPALIERING
  196. 2715 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  197. 2720 PRINT"        1. SETTING COMPATIBLE PLANTS               TOGETHER
  198. 2725 [153]"        2. DRAINING SOIL
  199. 2730 PRINT"        3. POISONING ROOTS
  200. 2735 [153]"        4. GROWING HYDROPONIC TOMATOES
  201. 2740 PRINT"        5. TRAINING SHRUBS TO GROW FLAT            AGAINST A SUPPORT
  202. 2745 [141]9000
  203. 2750 [139]R$[178]"5"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2800
  204. 2755 [141]9200
  205. 2760 [153]"  (null)O, THE CORRECT CHOICE IS ...
  206. 2765 PRINT"TRAINING SHRUBS TO GROW FLAT ON SUPPORTS":W=W+1
  207. 2770 GOSUB9052
  208. 2775 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  209. 2799 :
  210. 2800 PRINT"[147]":POKE53280,10:POKE53281,15:POKE646,0
  211. 2810 PRINT" 9       AROMATIC
  212. 2815 [153]"         USRUSRUSRUSRUSRUSRUSRUSR
  213. 2820 PRINT"      1. PRICKLY
  214. 2825 [153]"      2. SHUNNING THE SUNLIGHT
  215. 2830 PRINT"      3. HAVING A PLEASING ODOUR
  216. 2835 [153]"      4. VIVIDLY COLOURED
  217. 2840 PRINT"      5. HANGING FROM VINES
  218. 2845 [141]9000
  219. 2850 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2900
  220. 2855 [141]9200
  221. 2860 [153]"  (null)O, THE CORRECT CHOICE IS ...
  222. 2865 PRINT"    HAVING A PLEASING ODOUR [146]":W=W+1
  223. 2870 GOSUB9052
  224. 2875 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  225. 2899 :
  226. 2900 PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,0
  227. 2910 PRINT" 10      DIBBLE
  228. 2915 [153]"         USRUSRUSRUSRUSRUSR
  229. 2920 PRINT"      1. IMPLEMENT FOR MAKING HOLES              IN THE EARTH
  230. 2925 [153]"      2. BARK EATING INSECT
  231. 2930 PRINT"      3. LIGHT AND FLUFFY COMPOST                MATERIAL
  232. 2935 [153]"      4. FERTILIZER
  233. 2940 PRINT"      5. SCANT BLOOM
  234. 2945 [141]9000
  235. 2950 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3000
  236. 2955 [141]9200
  237. 2960 [153]"  (null)O, THE CORRECT CHOICE IS ...
  238. 2965 PRINT"IMPLEMENT FOR MAKING HOLES IN THE EARTH":W=W+1
  239. 2970 GOSUB9052
  240. 2975 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  241. 2999 :
  242. 3000 PRINT"[147]":POKE53280,12:POKE53281,15:POKE646,0
  243. 3010 PRINT" 11      LOAM
  244. 3015 [153]"         USRUSRUSRUSR
  245. 3020 PRINT"      1. RICH SOIL
  246. 3025 [153]"      2. POOR SOIL
  247. 3030 PRINT"      3. SCAB ON A GRAPE
  248. 3035 [153]"      4. ATMOSPHERE LOW IN OXYGEN
  249. 3040 PRINT"      5. ROCKY GROUND
  250. 3045 [141]9000
  251. 3050 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3100
  252. 3055 [141]9200
  253. 3060 [153]"  (null)O, THE CORRECT CHOICE IS ...
  254. 3065 PRINT"         RICH SOIL [146]":W=W+1
  255. 3070 GOSUB9052
  256. 3075 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053 :GOSUB9060
  257. 3099 :
  258. 3100 PRINT"[147]":POKE53280,10:POKE53281,15:POKE646,0
  259. 3110 PRINT" 12      SPORES
  260. 3115 [153]"         USRUSRUSRUSRUSRUSR
  261. 3120 PRINT"      1. SAWTOOTH LEAVES
  262. 3125 [153]"      2. MINUTE REPRODUCTIVE ORGANISMS
  263. 3130 PRINT"      3. SCENTLESS FLOWERS
  264. 3135 [153]"      4. TOXIC BERRIES
  265. 3140 PRINT"      5. SCABS ON APPLES CAUSED BY               WORMS
  266. 3145 [141]9000
  267. 3150 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3200
  268. 3155 [141]9200
  269. 3160 [153]"  (null)O, THE CORRECT CHOICE IS ...
  270. 3165 PRINT"     MINUTE REPRODUCTIVE ORGANISMS [146]":W=W+1
  271. 3170 GOSUB9052
  272. 3175 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  273. 3199 :
  274. 3200 PRINT"[147]":POKE53280,4:POKE53281,15:POKE646,0
  275. 3210 PRINT" 13      TILTH
  276. 3215 [153]"         USRUSRUSRUSRUSR
  277. 3220 PRINT"      1. ROCKY TERRAIN
  278. 3225 [153]"      2. SOIL PREPARED FOR PLANTING
  279. 3230 PRINT"      3. LACK OF FOLIAGE
  280. 3235 [153]"      4. SAND TREATED WITH MANURE
  281. 3240 PRINT"      5. SAND USED DECORATIVELY
  282. 3245 [141]9000
  283. 3250 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3300
  284. 3255 [141]9200
  285. 3260 [153]"  (null)O, THE CORRECT CHOICE IS ...
  286. 3265 PRINT"   SOIL PREPARED FOR PLANTING [146]":W=W+1
  287. 3270 GOSUB9052
  288. 3275 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  289. 3299 :
  290. 3300 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
  291. 3310 PRINT" 14      SCION
  292. 3315 [153]"         USRUSRUSRUSRUSR
  293. 3320 PRINT"      1. SPADE FOR DIGGING CLAY
  294. 3325 [153]"      2. BLIGHT
  295. 3330 PRINT"      3. SHOOT OR TWIG OF A PLANT
  296. 3335 [153]"      4. GARDENER'S BACKACHE
  297. 3340 PRINT"      5. TROPICAL FUNGUS
  298. 3345 [141]9000
  299. 3350 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3400
  300. 3355 [141]9200
  301. 3360 [153]"  (null)O, THE CORRECT CHOICE IS ...
  302. 3365 PRINT"   SHOOT OR TWIG OF A PLANT [146]":W=W+1
  303. 3370 GOSUB9052
  304. 3375 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  305. 3399 :
  306. 3400 PRINT"[147]":POKE53280,13:POKE53281,15:POKE646,0
  307. 3410 PRINT" 15      PERGOLA
  308. 3415 [153]"         USRUSRUSRUSRUSRUSRUSR
  309. 3420 PRINT"      1. OPEN-WORKED ARCH FOR CLIMBING           PLANTS
  310. 3425 [153]"      2. POND FOR WATER PLANTS
  311. 3430 PRINT"      3. COFFEE BEAN
  312. 3435 [153]"      4. ROOT CELLAR
  313. 3440 PRINT"      5. BUCKET
  314. 3445 [141]9000
  315. 3450 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3500
  316. 3455 [141]9200
  317. 3460 [153]"  (null)O, THE CORRECT CHOICE IS ...
  318. 3465 PRINT" OPEN-WORKED ARCH FOR CLIMBING PLANTS ":W=W+1
  319. 3470 GOSUB9052
  320. 3475 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  321. 3480 PRINT"  [198]ROM [204]ATIN 'PROPAGARE'":GOSUB9060
  322. 3500 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
  323. 3510 PRINT" 16      HONED
  324. 3515 [153]"         USRUSRUSRUSRUSR
  325. 3520 PRINT"      1. FROST-DAMAGED
  326. 3525 [153]"      2. STORED IN A WELL
  327. 3530 PRINT"      3. SHARPENED
  328. 3535 [153]"      4. TRIMMED
  329. 3540 PRINT"      5. REFINED HONEY
  330. 3545 [141]9000
  331. 3550 [139]R$[178]"3"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]3600
  332. 3555 [141]9200
  333. 3560 [153]"  (null)O, THE CORRECT CHOICE IS ...
  334. 3565 PRINT"         SHARPENED  [146]"
  335. 3570 GOSUB9052:W=W+1
  336. 3575 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  337. 3585 GOSUB9060
  338. 3600 PRINT"[147]":POKE53280,13:POKE53281,15:POKE646,0
  339. 3610 PRINT" 17      FRIABLE
  340. 3615 [153]"         USRUSRUSRUSRUSRUSRUSR
  341. 3620 PRINT"      1. PRONE TO ROT QUICKLY
  342. 3625 [153]"      2. EASILY SUN-SCORCHED
  343. 3630 PRINT"      3. EASILY CRUMBLED
  344. 3635 [153]"      4. UNSAFE AS FOOD
  345. 3640 PRINT"      5. CAN BE COOKED IN A FRYING PAN"
  346. 3645 GOSUB9000
  347. 3650 IFR$="3"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3700
  348. 3655 GOSUB9200
  349. 3660 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  350. 3665 [153]"      EASILY CRUMBLED WAIT":W[178]W[170]1
  351. 3670 [141]9052
  352. 3675 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  353. 3700 [153]"LOAD":[151]53280,3:[151]53281,15:[151]646,0
  354. 3710 [153]" 18      POROSITY
  355. 3715 PRINT"         [183][183][183][183][183][183][183][183]
  356. 3720 [153]"      1. CLEANLINESS
  357. 3725 PRINT"      2. SCARCITY
  358. 3730 [153]"      3. SWEATY
  359. 3735 PRINT"      4. ABILITY TO ABSORB MOISTURE
  360. 3740 [153]"      5. STATE OF OVERDEVELOPMENT
  361. 3745 GOSUB9000
  362. 3750 IFR$="4"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3800
  363. 3755 GOSUB9200
  364. 3760 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  365. 3765 [153]"      ABILITY TO ABSORB MOISTURE WAIT":W[178]W[170]1
  366. 3770 [141]9052
  367. 3775 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  368. 3800 [153]"LOAD":[151]53280,10:[151]53281,15:[151]646,0
  369. 3810 [153]" 19      OVATE
  370. 3815 PRINT"         [183][183][183][183][183]
  371. 3820 [153]"      1. EIGHT-PETALLEDENS
  372. 3825 PRINT"      2. ATTRACTIVE TO INSECTS
  373. 3830 [153]"      3. REQUIRING MUCH WATER
  374. 3835 PRINT"      4. EGG-SHAPED
  375. 3840 [153]"      5. BEING FERTILE
  376. 3845 GOSUB9000
  377. 3850 IFR$="4"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3900
  378. 3855 GOSUB9200
  379. 3860 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  380. 3865 [153]"         EGG-SHAPED WAIT":W[178]W[170]1
  381. 3870 [141]9052
  382. 3875 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  383. 3900 [153]"LOAD":[151]53280,7:[151]53281,15:[151]646,0
  384. 3910 [153]" 20      ARBORETUM
  385. 3915 PRINT"         [183][183][183][183][183][183][183][183][183]
  386. 3920 [153]"      1. TYPE OF FUNGUS FOUND ON ROSES
  387. 3925 PRINT"      2. PLACE WHERE TREES AND SHRUBS            ARE GROWN TO STUDY
  388. 3930 [153]"      3. TREE WITH MASSIVE ROOT SYSTEM
  389. 3935 PRINT"      4. ARCH OVER A FISH POND
  390. 3940 [153]"      5. WOOD WORKING SHOP
  391. 3955 GOSUB9000
  392. 3960 IFR$="2"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO4500
  393. 3965 GOSUB9200
  394. 3970 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  395. 3975 [153]" PLACE WHER SHRUBS AND TREES ARE GROWN WAIT":W[178]W[170]1:[141]9052:[141]9060
  396. 4500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,1:C[178]20[171]W
  397. 4505 [153]"  (null)OU HAVE COMPLETED THIS MODULE AND
  398. 4510 PRINT"  GOT";C;"WORDS CORRECT.":GOSUB9055
  399. 4515 GOTO500
  400. 4999 :
  401. 5000 PRINT"[147]":POKE53280,12:POKE53281,12:POKE646,0
  402. 5005 PRINT"              [196][197][198][201][206][201][212][201][207][206][211] [146]
  403. 5100 [153]" 1.  LEFT$VAL(null)PEEKATNLENVAL(null)(null)(null)
  404. 5110 PRINT"     [210]ESEMBLING A PLANT LEAF IN COLOUR,
  405. 5120 [153]"     TEXTURE AND SHAPE.
  406. 5130 PRINT" * [204]ATIN 'HERBACEUS' (GRASSY)
  407. 5140 [141]9070
  408. 5200 [153]"LOAD 2.  (null)(null)LENLEN(null)(null)VAL(null)(null)(null)
  409. 5210 PRINT"     [208]LANTS HAVING FLESHY, JUICY
  410. 5220 [153]"     TISSUE FOR STORING WATER.
  411. 5230 PRINT" * [204]ATIN 'SUCCUS'  (JUICE) "
  412. 5240 GOSUB9070
  413. 5300 PRINT"[147] 3.  [200][207][208][208][197][210]
  414. 5310 [153]"     (null)ECEPTICAL FOR DISPENSING
  415. 5320 PRINT"     CONTENTS EVENLY
  416. 5340 [153]" * (null)IDDLE VALNGLISH 'HOPPEN' (TO HOP) "
  417. 5350 [141]9070
  418. 5400 [153]"LOAD 4.  STR$(null)(null)(null)ATN(null)(null)
  419. 5410 PRINT"     [211]LEEPING; HYBERNATING;QUIESCENT
  420. 5420 [153]"
  421. 5430 PRINT" * [204]ATIN 'DORMIRE'  (TO SLEEP)
  422. 5440 [141]9070
  423. 5500 [153]"LOAD 5.  LEFT$(null)PEEK(null)RIGHT$STR$(null)
  424. 5510 PRINT"     [208]LANTS PRODUCED BY COMBINING TWO
  425. 5520 [153]"     SPECIES OR VARIETIES.
  426. 5530 PRINT" * [204]ATIN 'HYBRIDA' (OFFSPRING OF MIXED     ORIGIN.
  427. 5540 [141]9070
  428. 5600 [153]"LOAD 6.  (null)(null)(null)RIGHT$ATN(null)(null)
  429. 5610 PRINT"     [199]IVING TREES OR SHRUBS ORNAMENTAL
  430. 5620 [153]"     SHAPES BY MEANS OF TRIMMING AND         TRAINING,
  431. 5630 PRINT" * [204]ATIN 'TOPIA' (ORNAMENTAL GARDENING)
  432. 5640 [141]9070
  433. 5700 [153]"LOAD 7.  VAL(null)(null)ATN(null)RIGHT$VAL(null)RIGHT$(null)CHR$
  434. 5710 PRINT"     [212]HE PRACTICE OF TRAING A TREE OR
  435. 5720 [153]"     SHRUB TO GROW FLAT AGAINST A            SUPPORT.
  436. 5730 PRINT"   * [204]ATIN 'SPATULA' (SHOULDER BLADE)
  437. 5740 [141]9070
  438. 5800 [153]"LOAD 8.  (null)VAL(null)STR$(null)RIGHT$(null)(null)
  439. 5810 PRINT"     [212]HREADLIKE PARTS OF CLIMBING
  440. 5820 [153]"     PLANTS"
  441. 5830 [153]"   * (null)ATIN  'TENER'  (TENDER)
  442. 5840 GOSUB9070
  443. 5900 PRINT"[147] 9.  [193][210][207][205][193][212][201][195]
  444. 5905 [153]"     LEFT$AVING A DISTINCTIVE PLEASING
  445. 5910 PRINT"     ODOUR. "
  446. 5915 PRINT"   * [199]REEK  'AROMA'  (SPICE)
  447. 5920 [141]9070
  448. 5950 [153]"LOAD 10. STR$RIGHT$PEEKPEEK(null)VAL
  449. 5955 PRINT"     [211]MALL HAND IMPLEMENT TO MAKE
  450. 5960 [153]"     HOLES IN THE GROUND FOR                 PLANTING.
  451. 5965 PRINT"   * [205]IDDLE [197]NGLISH 'DEBYLLE'
  452. 5970 [141]9070
  453. 6000 [153]"LOAD 11. (null)(null)ATN(null)
  454. 6010 PRINT"     [210]ICH, DARK SOIL.                                  ;
  455. 6040 [153]"   * (null)LD VALNGLISH  'LAM'  (CLAY)
  456. 6050 GOSUB9070
  457. 6100 PRINT"[147] 12. [211][208][207][210][197][211]
  458. 6110 [153]"     (null)INUTE REPRODUCTIVE ORGANISMS
  459. 6120 PRINT"     SIMILAR IN FUNCTION TO THE SEEDS        OF FLOWERING PLANTS.
  460. 6130 [153]"   * CHR$REEK  'SPORA' (THE ACT OF SOWING       SEED
  461. 6140 GOSUB9070
  462. 6200 PRINT"[147] 13. [212][201][204][212][200]
  463. 6210 [153]"     (null)URFACE SOIL PREPARED FOR"
  464. 6220 [153]"     PLANTING"
  465. 6230 [153]"   * (null)LD VALNGLISH  'TILIAN' TO TILL"
  466. 6240 [141]9070
  467. 6300 [153]"LOAD 14. (null)LENRIGHT$(null)(null)
  468. 6310 PRINT"     [193] SHOOT OR TWIG OF A PLANT
  469. 6320 [153]"     ESPECIALLY ONE USED FOR GRAFTING        OR PLANTING.
  470. 6330 PRINT"   * [207]LD [198]RENCH 'CION' (SHOOT OR TWIG)
  471. 6340 [141]9070
  472. 6400 [153]"LOAD 15. (null)VAL(null)CHR$(null)(null)ATN
  473. 6410 PRINT"     [207]PEN-WORKED ARCH OVER WHICH
  474. 6420 [153]"     CLIMBING PLANTS ARE TRAINED.
  475. 6430 PRINT"   * [204]ATIN 'PERGULA' (ROOF OR ARBOUR)
  476. 6440 [141]9070
  477. 6500 [153]"LOAD 16. LEFT$(null)(null)VALSTR$
  478. 6510 PRINT"     [211]HARPENED AS WITH A HONE. "
  479. 6520 PRINT"     [A FINE-GRAINED HARD STONE]
  480. 6530 [153]"   * (null)LD VALNGLISH 'HAN' (STONE)
  481. 6550 GOSUB9070
  482. 6600 PRINT"[147] 17. [198][210][201][193][194][204][197]
  483. 6610 [153]"     VALASILY CRUMBLED, PULVERIZED,
  484. 6620 PRINT"     REDUCED TO A POWDER.
  485. 6630 [153]"   * (null)ATIN  'FRIARE'  (TO CRUMBLE)
  486. 6640 GOSUB9070
  487. 6700 PRINT"[147] 18. [208][207][210][207][211][201][212][217]
  488. 6710 [153]"     ATNBILITY TO ABSORB MOISTURE.
  489. 6730 PRINT"   * [204]ATIN 'POROSUS' (POROUS))
  490. 6740 [141]9070
  491. 6800 [153]"LOAD 19. (null)(null)ATN(null)VAL
  492. 6810 PRINT"     [197]GG-SHAPED
  493. 6830 [153]"   * (null)ATIN 'OVUM' (EGG)
  494. 6840 GOSUB9070
  495. 6900 PRINT"[147] 20. [193][210][194][207][210][197][212][213][205]
  496. 6910 [153]"     ATN PLACE WHERE TREES AND SHRUBS "
  497. 6920 [153]"     ARE GROWN FOR THE PURPOSE OF  "
  498. 6930 [153]"     STUDY.
  499. 6940 PRINT"   * [204]ATIN  'ARBOR'  (TREE)
  500. 6950 [141]9070
  501. 8500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,7
  502. 8505 [139][197](W$)[179]3[167][137]8565
  503. 8515 [153]"              (null)ATN(null)(null)RIGHT$(null)CHR$ WAITSYS
  504. 8520 PRINT"   [201]F YOU MISSED MORE THAN TWO WORDS       YOU SHOULD REPEAT THIS";
  505. 8525 PRINT" MODULE."
  506. 8530 GOSUB 9052
  507. 8565 PRINT"[147]    [212]HE NEXT MODULE IN THIS SERIES IS                 [214][207][195][193][194] 6
  508. 8570 [141]9052
  509. 8575 [153]"    (null)EMEMBER....":[141]9051
  510. 8580 [153]"   RIGHT$F YOU KNOW THE WORDS - YOU CAN         COMMUNICATE!
  511. 8585 GOSUB9052
  512. 8590 PRINT"    [193] GOOD VOCABULARY IS WORTH [210][197][193][204]         GOLD!":GOSUB9059
  513. 8595 GOTO9500
  514. 9000 INPUT"    ";R$
  515. 9005 IFR$<>"1"ANDR$<>"2"ANDR$<>"3"ANDR$<>"4"ANDR$<>"5"THEN 9000
  516. 9010 RETURN
  517. 9050 REM TIME SELECTORS
  518. 9051 FORT=1TO1000:NEXT:RETURN
  519. 9052 FORT=1TO2000:NEXT:RETURN
  520. 9053 FORT=1TO3000:NEXT:RETURN
  521. 9054 FORT=1TO4000:NEXT:RETURN
  522. 9055 FORT=1TO5000:NEXT:RETURN
  523. 9059 FORT=1TO9000:NEXT:RETURN
  524. 9060 GOSUB 9052
  525. 9061 PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
  526. 9062 [161]R$:[139]R$[179][177][199](32)[167]9062
  527. 9063 [142]
  528. 9070 [141] 9052
  529. 9071 [153]"   (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
  530. 9072 GETR$:IFR$<>CHR$(32)THEN9072
  531. 9073 RETURN
  532. 9099 :
  533. 9100 REM 'YES' SOUND
  534. 9105 S=54272:FORS=STOS+28:POKEE,0:NEXT
  535. 9110 POKE54296,15:POKE54277,42:POKE54278,250
  536. 9115 POKE54276,23:POKE54273,23:POKE54272,191
  537. 9120 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  538. 9125 POKE54296,0:RETURN
  539. 9199 :
  540. 9200 REM 'NO' SOUND
  541. 9205 S=54272:FORS=STOS+28:POKEE,0:NEXT
  542. 9210 POKE54296,15:POKE54277,18:POKE54278,242
  543. 9215 POKE54276,33:POKE54273,4:POKE54272,48
  544. 9220 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  545. 9225 FORE=STOS+28:POKEE,0:NEXT:RETURN
  546. 9299 :
  547. 9300 REM 'BLIP' SOUND
  548. 9305 S=54272:FORL=STOS+28:POKEL,0:NEXT:POKES+5,14:POKES+9,240:POKES+24,15
  549. 9310 HF=S+1:LF=S
  550. 9315 POKES+4,17:POKEHF,INT(RND(0)*50):POKELF,250:POKES+4,16:RETURN
  551. 9500 PRINT"[147][153] [217]OU HAVE A CHOICE:
  552. 9510 [153]" (null)RESS  (null) WAIT TO REPEAT MODULE 5
  553. 9520 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
  554. 9530 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]9530
  555. 9540 [139]R$[178]"M"[167] [137]9560
  556. 9545 [139]R$[178]"(null)"[167] [137]9560
  557. 9550 [140]:[137]10
  558. 9560 [153]"LOAD(null)ETURNING TO THE DISK MENU
  559. 9570 LOAD"MENU",8
  560. 9580 RUN
  561. 9590 END
  562. 10000 REM  IN MEMORIUM * RAD JANJIC *              R.I.P.  87:11:26
  563. 10001 REM FOR CORRECTION OR IMPROVEMENTCONTACT BILL CUMBERLAND (416)278-7687
  564.